home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / iritsm3s.zip / GENERAL.IRT < prev    next >
Text File  |  1990-05-05  |  392b  |  18 lines
  1. #
  2. # General tests should be included here:
  3. #
  4.  
  5. b=box(vector(-0.5, -0.5, -0.5), 1, 1, 1);
  6. normal(true, 0.5, red);
  7. view_mat = view_mat * scale(vector(0.5, 0.5, 0.5));
  8. view(list(b), true);
  9. axes1 = axes * scale(vector(1.2, 1.2, 1.2));
  10. view(list(axes1), false);
  11.  
  12. b_x = b * rotx(45);
  13. b_y = b * roty(45);
  14. b_z = b * rotz(45);
  15.  
  16. normal(false, 0.0, blue);
  17. view(list(b_x,b_y,b_z),false);
  18.